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i® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOF TWARE IS HEREBY 
!® TRANSFERRED. 


!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
‘; ePOkaT itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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EDTSWFGETBKT = allocate a bucket 1h-s° $ep-1984 02:06: VAX-11 ss-32 V 
1e-8ep-1986 95:98:34 DISK 
Re "EDTSWFG et - allocate a bucket’ 
EDTSWFGETBKT ¢ ' Allocate ’ bucket 
re = *v04-000' ! File: WEGETBKT.BLI Edit: JBS1008 
= 
BEGIN 
i eeeeeeerrerererererrereerreeeeretereeeereereeereteneneeeeenereneneeenerereese 
'@ 
'e sth A (Sous ere 1980, 1982, 1984 BY 
1 if ie DIGITAL T CORPORATION, MAYNARD, MASSACHUSETTS. 
: 4" ALL RIGH $ UAESERVED” 
1 00 ie THIS SOFTWARE IS FURNISHED UNoeD A LICENSE AND MAY BE USED AND COPIED 
1 00 '@ ONLY IN eee ANCE WITH THE TERMS OF wave” pint SE AND WITH THE 
1 D0 !e ONELUSTON OF THE ABOVE cet NOTICE. THIS SOFTWARE OR ANY OTHER 
: ' '® COPIES THEREOF a NOT BE PROVIDED OR OTH ERWISE MADE AVAILABLE TO ANY 
. 
1 ' 
1 
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tee 
! FACILITY: EDT == The DEC Standard Editor 
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' 
1 
i ABSTRACT: 
! Allocate a bucket. 
; ENVIRONMENT: Runs at any access mode - AST reentrant 
40 i AUTHOR: Bob Kushlis, CREATION DATE: October 16, 1978 
4 i MODIFIED BY: 
44 i 1-001 = Original. 23-Feb-1981. This module was created by 
45 : extrect ing rest ne GET_NEW_ OKT froe module EDTWF. 
4 ! 1- § = Regularize headers. “JBS” 81 
4 ! 1- - anenge SY_EXIT to EDT Boys e Exi. a 1382 -Mar-1981 
4 i 1-004 - x, °9 to” use EDTSWORKIO. STS 15-Feb-1 
4 ! 1-005 = Call running on s. STS 26-Feb-1982 
0 ! 1- - Add LTeSrals. i cok epie pares asters. STS *O8 Mar-1982 
1 ! 1- - Fix module name. Apr-19 
¢ 1-008 = Fix work file overflow message. JBS 05-Jul-1982 
4 


SK$V: mshi STER: *CEDT SRCSWFGETBKT. BLI; A a ad 


XSBTTL Declarations’ 
TABLE OF CONTENTS: 


REQUIRE "EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
COTSSWF_ALOBUF : NOVALUE; 


INCLUDE FILES: 


REQUIRE "EDTSRC:EDTREQ'; 
RIF ZBLISS (BLISS32) 
THEN 


REQUIRE "EDTSRC:SYSSYM'; 
aFI 


} MACROS: 
NONE 
EQUATED SYMBOLS: 


REUN OOS NOU PUN OD we Whoa 


EXTERNAL LITERAL 
EDTSK_GET; 

1 

OWN STORAGE: 

: NONE 

' 


i EXTERNAL REFERENCES: 
In the routine 
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voureoe wt Ai yok tod Se Sepang 19=380-1382 93:98:33 OTSSymemas ERSCEOT SRCSWFGETBKT.BLICTo (25, 
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& | 
pT TBKT = allocate a bucket 18-se -1 :06: VAX-11 BLiss-32_ V4.0-74 P 3 EOT 
EDT Ssur A OBUF = allocate a bucket 1 matt 1 95:98:34 DIEKSVMEHASTERCCEDT SRC TUFGETOKT.OLIe1 2" (3) | v4 
ZSBTTL “EDTSSWF_ALOBUF = allocate a bucket’ 
GLOBAL ROUTINE EDTSSwF_ALOBUF ! Allocate a bucket 
: NOVALUE = 


$3 
cs 
: 


SIDE EFFECTS: 


wn 


If the work file overflows, never returns to its caller. 


FEV see 
5 f | FUNCTIONAL DESCRIPTION: 

t i This routine allocates a new bucket from the work-file. If there 

: is a bucket available on the deleted bucket list, use it, otherwise 

7 ; take the next higher numbered bucket. 
' 7 FORMAL PARAMETERS: | 
ee 1B | ty | 
15 at i IMPLICIT INPUTS: | 
19 716 EDT$$G_wWk_GRTSTBUK | 
18 a EDTS$A_WK ~BUK | 
9 a ; IMPLICIT OUTPUTS: 
j 721 i EDTS$Z_WF_DESC | 

7 : i EDTS$G_WK-AVAIL | 
4 7 i EDT$$G_WK— CURBUK 
5 , é EDT$$G_WK-GRTSTBUK | 
$ ? 6 i ROUTINE VALUE: 

. | 

7 i NONE 

58 yi | 

7 i 

a Yi 

7 § i 

7 i 

735 

7 

7 

7 
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| 
a oo | 
BEGIN 
L ZIF ZBLISS (BLISS16) 
EB bam 
¢g U 0741 eave ROUTINE 
rt ¥ ee EDTSSWF_EXT; ! extend the work file by placing a new bucket in the cache 
ie be 
4 074 EXTERNAL ROUTINE | 
$8 074 EDTESERT MSG ! Put the text of a message in the format buffer 
fe 074 EDTSSFMT-CRLF, ! Terminate the Line being built in the format buffer 
0 074 EDTSSCALCWIO 
1 0750 EDTSSWF_MAKECUR : NOVALUE, 
; {i 1 EDTS$SYS_EXI; ! Leave EDT abruptly 
4 07 g EXTERNAL ; 
5 0754 EDTSS$Z2_WF_DESC : BLOCK C, BYTE), ! descriptor for workfile record 


“WK"BUK : ! Poi 
REF BCOCK CwF_BUKT_SIZE, BYTE] FIELD (WFB_FIELDS); 
MESSAGES ((WRKFILOVF)); 
IF (.EDTSSG_WK AVAIL NEQ 0) 

HEN 


pete 
DISSWF_MAKECUR (.EDTS$G_WK_ AVAIL); 
EDIS86_0R AVAIL = EDTSSK UR BUK tite wext_puKr); 


ELSE 
BEGIN 
'¢ 


Check for overflow 


IF ((.EDTS$G_WK_GRISTBUK EQL 0) OR : 
5g SOTERA STOUR GTRU 65535)) 


BEGIN 
EDTSSFMT_MSG (EDTS_WRKFILOVF); 
EDTSSFMT-CRLF (); 

EDTSSSYS_EXI (EDTS_WRKFILOVF); 


'¢ 
! Inform the caching routines that we are creating a new bucket. 
; On the 11's we have to bring another bucket into the cache specially 


IF XBLISS (BLISS32) 
EDTSSCALLWIO (EDTSK_GET, .EDTSS$G_WK_GRTSTBUK, EDTS$SZ_WF_DESC); 


EDTSS$WF_EXT ( EDTSSG WK GRISTBUK, EDTSSA_WK_BUK) ; 
EDTS$Z_OF_DESC CDSCSA_POINTER] = .EDTSSA~WK~BUK; 


ZELSE 


ccc 


aFI 


a a el el elt elt eel el el cael cell el ell 
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EDTSS$A_WK_BUK = .EDT$$Z_WF_DESC CDSCSA_POINTER); 
EDTS$$G_WK-CURBUK = .EDTS$G~WK_GRTSTBUK: 


‘+ 
And bump the largest bucket number. 
; Fo TOOG Le Sats Tes = .EDTS$G_WK_GRISTBUK + 1; 


VAX-11 Bliss-32 V4 ity Page 4 
DISKSVMSMASTER: CEDT. SRC JWFGETBKT.BLI; (3) 


eyretes bucket 


4 8 
TeKT GETBKT = allocate @ bucket 16-Sep-1 706: 
-ALOBUF = allocate @ bucket 1o280871 382 95:98:38 
DTS$$G_WK_AVAIL, ! Pointer to next available 
DT$$G_WK_CURBUK, ' Number of the current bucket 
TS$G_WK_GRISTBUK, ' Largest bucket number in use 
DTSSA nter to current bucket 


'get address of record 


END; ! End of routine EDTSSWF_ALOBUF 


TITLE 34 § aa sa EDTSWFGETBKT - allocate a bucket 
-IDENT \V04-000\ 


-EXTRN EDTSK_GET, EDTSSFMT_MSG 


DE ee > 


vee th db ed By SAB Sisto Bh A ease 188e 98:98:33 UTS cbvmGHASTER CED? SaCSwFGETBKT.eLIet™™ (3). 


EXTRN EDT SsraT CRLF, EDTSSCALLWIO | 
SEXTRN bi ssy K | 
sEXTRN EDTSSSYS_EXI, EDTSSZ_WF_DESC 
-EXTRN EDTS$$G_WR_AVAIL 
“EXTRN DT$$G_WK ~CURBUK 

XTRN EDT$$G_WK-GRTSTBUK 
EXTRN EDTS$A_WK-BUK, EDTS_WRKF ILOVF 


«PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


; Routine Size: 129 bytes, Routine Base: _EDTSCODE + 0000 


| 
| 
003¢ 000 SENTRY EDTSSWF_ALOBUF, Saye RZ,R3,R4,RS ; 0700, 
5 G 9 MOV EDT$$G_Qk AVAIL, R : 
4 G 8F MOVL #EDTS_OQRKFILOVF, R4 ; 
6 E 919 MOVAB EDTS$A_WK_BUK : 
6 9 1 MOVAB EDTS$$G_WK-GRTSTBUK, R? : 
D If MOVL EDTS$G-WK"AVAIL, RO + 0763 
fy BEQL 4=s«s1$ : 
0 Dd 000 3 PUSHL RO + 0766 
000000006 01 FB 0 CALLS #1 EDTSSuE MAKE CUR : 
63 02c MOVL gpts A_wk BOK, RO + 0767 
6 02 AO £ , 4 te (RO), EDTS$G_WK_AVAIL 0763 
50 2 bg 034 1$: MOVL EDTSSG_WK_GRTSTBUK, RO + 0775 
13 00037 BEQL $ ; 
OOOOFFFF  8F 0 pi 00039 CMPL RO, #65535 : 0776 
iy op es 2$ Ct SHE ae : 0779 
900000006 00 01 FB 00044 CALLS #1, EDTSSFMT_MSG ; 
000000006 00 90 FB 0048 CALLS #0, EDTSSFMT~CRLF : 9780 
000000006 oi FB 00054 CALLS #1 EDTS$Svs EX! : 
000000006 9 9F 00058 3$: PUSHAB EDTS$$Z_WF_DE ; 0791 
000000006 $f DD ite PUSH eeiaereete ee : 
000000006 ie 0069 CALLS A DTSS$CALLWIO : 
63 000000006 DO 000 : MOVL  EDTS$Z_WF_DESC+4, EDTSSA_WK BUK + 0797 
000000006 00 62 D0 9007 MOVL  EDT$S$G"WK"GRTSTBUK, EDT$$G_QK_CURBUK : 0798 
62 D6 0007E INCL  EDT$$G~WK"GRTSTBUK : 0802 
04 00080 RET + 0805 


: 308 880 !<BLF /PAGE> 


cay eet ge vent 


; 3° aos ! End of module EDTS$WFGETBKT 
: 212 0 ELUDON 


PSECT SUMMARY 
Name Bytes Attributes 
_EDTSCODE 129 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
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Library Statistics 


; Snaoweme Symbols -------- Pages Processing 
5 File Tota! idaded” Percent Mapped Time 

; _$255$0u EDT. SRC EDT.L32;1 377 ? 1 40 00:00.2 
; ~$255$0u. Rs recs Lag 2 1 50 7 00:00.1 
3 3532504 ESysiie STARLET.L32;1 9776 1 0 581 00:04.0 
; COMMAND QUALIFIERS 


Fe nee SME TEAL SPT IRIE) SUDTRACEOACE AL 15°08. £98 10 GE TOK T/ORI90R.IS 1 GE TORT MSRCS$:WFGETBKT.BLI/UPDATE=(ENHS : WF GE 


; Size: 129 code + 0 data bytes 
: me: 8-2 


3 
~<eoea 

e 

= 


Lexemes/CPU-Min: sare 
; Memory Used: 85 pages 
; Compircation Complete 


| 
T T- -Sep- :06: - 
EDT ood Ais =. Cetete s bucket 1$-se0-198 95:98:33 DLaKSVMGMASTERSCEDT src WFGETBKT.BLI; a (4 
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